home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.02 Feb 91 / 4th Debugger Appl / 4th Debugger.r < prev    next >
Encoding:
Text File  |  1990-02-22  |  7.8 KB  |  343 lines  |  [TEXT/MPS ]
  1. /************************************************************************/
  2. /*                                                                          */
  3. /*    Source   - 4th Debugger.r                                            */
  4. /*    Author   - Alexander S. Colwell, Copyright © 1990                    */
  5. /*                                                                        */
  6. /*    Purpose     - This is 4th Debugger resource file.                        */
  7. /*                                                                        */
  8. /************************************************************************/
  9.  
  10. #include "Types.r"
  11. #include "SysTypes.r"
  12.  
  13. type 'EA4h' { pstring; };
  14.  
  15. resource 'BNDL' (128, purgeable) {
  16.     'EA4h', 0,
  17.     {    
  18.         'ICN#', { 0, 128 },
  19.         'FREF', { 0, 128 }
  20.     }
  21. };
  22.  
  23. resource 'FREF' (128) {
  24.     'APPL', 0, ""
  25. };
  26.  
  27. resource 'EA4h' (0) {
  28.     "External Area Debugger"
  29. };
  30.  
  31. resource 'MBAR' (1, preload) {
  32.     { 1, 2, 3, 128 }
  33. };
  34.  
  35. resource 'MENU' (1, "Apple") {
  36.     1, textMenuProc, 0x7FFFFFFD, enabled, apple,
  37.     {
  38.         "About 4th Dim Debugger…#256", noIcon, noKey, noMark, plain,
  39.         "-", noIcon, noKey, noMark, plain
  40.     }
  41. };
  42.  
  43. resource 'MENU' (2, "File") {
  44.     2, textMenuProc, allEnabled, enabled, "File",
  45.     {
  46.         "Page Setup…#8", noIcon, noKey, noMark, plain,
  47.         "Print…#9", noIcon, "P", noMark, plain,
  48.         "-", noIcon, noKey, noMark, plain,
  49.         "Quit#1", noIcon, "Q", noMark, plain
  50.     }
  51. };
  52.  
  53. resource 'MENU' (3, "Edit", preload) {
  54.     3, textMenuProc, 0x7FFFFF80, enabled, "Edit",
  55.     {
  56.         "Undo#16", noIcon, "Z", noMark, plain,
  57.         "-", noIcon, noKey, noMark, plain,
  58.         "Cut#18", noIcon, "X", noMark, plain,
  59.         "Copy#19", noIcon, "C", noMark, plain,
  60.         "Paste#20", noIcon, "V", noMark, plain,
  61.         "Clear#21", noIcon, noKey, noMark, plain,
  62.         "-", noIcon, noKey, noMark, plain,
  63.         "Select All#1035", noIcon, "A", noMark, plain,
  64.         "Hide Debugger#1036", noIcon, "D", noMark, plain,
  65.         "Show Clipboard#22", noIcon, noKey, noMark, plain
  66.     }
  67. };
  68.  
  69. resource 'MENU' (128, "Emulate") {
  70.     128, textMenuProc, allEnabled, enabled, "Emulate",
  71.     {
  72.         "Open External Area#1024", noIcon, "O", noMark, plain,
  73.         "Close External Area#1025", noIcon, "W", noMark, plain,
  74.         "-", noIcon, noKey, noMark, plain,
  75.         "Run External Procedure 1#1026", noIcon, "1", noMark, plain,
  76.         "Run External Procedure 2#1027", noIcon, "2", noMark, plain,
  77.         "Run External Procedure 3#1028", noIcon, "3", noMark, plain,
  78.         "Run External Procedure 4#1029", noIcon, "4", noMark, plain,
  79.         "Run External Procedure 5#1030", noIcon, "5", noMark, plain,
  80.         "Run External Procedure 6#1031", noIcon, "6", noMark, plain,
  81.         "Run External Procedure 7#1032", noIcon, "7", noMark, plain,
  82.         "Run External Procedure 8#1033", noIcon, "8", noMark, plain,
  83.         "Run External Procedure 9#1034", noIcon, "9", noMark, plain
  84.     }
  85. };
  86.  
  87. resource 'WIND' (500, "4th External Area") {
  88.     {40, 4, 210, 352},
  89.     zoomDocProc, invisible, goAway, 0,
  90.     "4th External Area"
  91. };
  92.  
  93. resource 'WIND' (501, "4th External Debugger") {
  94.     {235, 4, 335, 352},
  95.     zoomDocProc, visible, goAway, 0,
  96.     "Debugger"
  97. };
  98.  
  99. resource 'DLOG' (500, "About This...") {
  100.     {40, 40, 128, 304},
  101.     dBoxProc, visible, noGoAway, 0, 500,
  102.     "About This..."
  103. };
  104.  
  105. resource 'DITL' (500, "About This...") {
  106.     {
  107.         {8, 52, 26, 216},
  108.         StaticText { enabled, "4th Dimension Debugger" },
  109.         {27, 95, 45, 173},
  110.         StaticText { enabled, "Version 1.0" },
  111.         {46, 29, 64, 240},
  112.         StaticText { enabled, "Written by Alexander S. Colwell" },
  113.         {65, 76, 83, 194},
  114.         StaticText { enabled, "Copyright © 1990" }
  115.     }
  116. };
  117.  
  118. resource 'STR#' (1036, "Hide/Show Debugger") {
  119.     {
  120.         "Hide Debugger",
  121.         "Show Debugger"
  122.     }
  123. };
  124.  
  125. resource 'ICN#' (128, purgeable) {
  126.     {
  127.         $"00 00 00 00 72 00 1F E0 45 00 20 20 67 7F C0 7F"
  128.         $"45 00 80 F8 75 01 01 F0 00 02 03 E0 FF FC 07 FF"
  129.         $"00 08 0F 80 00 10 1F 00 00 20 3E 00 FF C0 7F FF"
  130.         $"00 80 FF F8 01 01 F0 10 02 03 E0 20 FC 07 C0 7F"
  131.         $"08 0F 80 F8 10 1F 01 FC 20 00 00 04 C0 00 00 0F"
  132.         $"40 00 00 1F 40 00 00 3E 40 00 00 7C FF E0 3F FF"
  133.         $"3F C0 7F F0 3F 80 FF E0 3F 01 FF C0 FF FF FF FF"
  134.         $"00 7F C0 00 00 FF 80 00 01 FF 00 00 FF FF FF FF",
  135.  
  136.         $"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF"
  137.         $"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF"
  138.         $"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF"
  139.         $"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF"
  140.         $"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF"
  141.         $"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF"
  142.         $"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF"
  143.         $"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF"
  144.     }
  145. };
  146.  
  147. /************************************************************************/
  148. /*                                                                          */
  149. /* Think C Object Resources                                             */
  150. /*                                                                        */
  151. /************************************************************************/
  152.  
  153. type 'Estr' { pstring; };
  154.  
  155. resource 'WIND' (200, "Clipboard", purgeable, preload) {
  156.     {130, 158, 238, 444},
  157.     zoomDocProc, invisible, goAway, 0,
  158.     "Clipboard"
  159. };
  160.  
  161. resource 'ALRT' (128, "General", purgeable) {
  162.     {32, 10, 164, 328},
  163.     128,
  164.     {
  165.         OK, visible, silent,
  166.         OK, visible, silent,
  167.         OK, visible, silent,
  168.         OK, visible, silent
  169.     }
  170. };
  171.  
  172. resource 'ALRT' (150, "Confirm Revert", purgeable) {
  173.     {100, 120, 190, 420},
  174.     150,
  175.     {
  176.         OK, visible, silent,
  177.         OK, visible, silent,
  178.         OK, visible, silent,
  179.         OK, visible, silent
  180.     }
  181. };
  182.  
  183. resource 'ALRT' (151, "Save Changes", purgeable) {
  184.     {42, 34, 184, 350},
  185.     151,
  186.     {
  187.         OK, visible, silent,
  188.         OK, visible, silent,
  189.         OK, visible, silent,
  190.         OK, visible, silent
  191.     }
  192. };
  193.  
  194. resource 'ALRT' (200, "Severe Error", purgeable) {
  195.     {32, 10, 168, 352},
  196.     200,
  197.     {
  198.         OK, visible, sound1,
  199.         OK, visible, sound1,
  200.         OK, visible, sound1,
  201.         OK, visible, sound1
  202.     }
  203. };
  204.  
  205. resource 'ALRT' (250, "No Printer", purgeable) {
  206.     {40, 40, 156, 382},
  207.     250,
  208.     {
  209.         OK, visible, sound1,
  210.         OK, visible, sound1,
  211.         OK, visible, sound1,
  212.         OK, visible, sound1
  213.     }
  214. };
  215.  
  216. resource 'ALRT' (300, "OS Error", purgeable) {
  217.     {32, 10, 168, 352},
  218.     300,
  219.     {
  220.         OK, visible, sound1,
  221.         OK, visible, sound1,
  222.         OK, visible, sound1,
  223.         OK, visible, sound1
  224.     }
  225. };
  226.  
  227. resource 'DITL' (128, "General", purgeable) {
  228.     {
  229.         {98, 231, 118, 291},
  230.         Button { enabled, "OK" },
  231.         {14, 25, 82, 299},
  232.         StaticText { disabled, "^0" }
  233.     }
  234. };
  235.  
  236. resource 'DITL' (150, "Confirm Revert", purgeable) {
  237.     {
  238.         {60, 208, 80, 290},
  239.         Button { enabled, "OK" },
  240.         {60, 105, 80, 187},
  241.         Button { enabled, "Cancel" },
  242.         {5, 113, 45, 293},
  243.         StaticText { disabled, "Revert to the last version saved ?" },
  244.         {47, 10, 64, 66},
  245.         StaticText { disabled, "Caution" }
  246.     }
  247. };
  248.  
  249. resource 'DITL' (151, "Save Changes", purgeable) {
  250.     {
  251.         {74, 35, 94, 117},
  252.         Button { enabled, "Yes" },
  253.         {111, 35, 131, 117},
  254.         Button { enabled, "No" },
  255.         {111, 205, 131, 287},
  256.         Button { enabled, "Cancel" },
  257.         {14, 25, 55, 291},
  258.         StaticText { disabled, "Save changes to “^0” before ^1?" }
  259.     }
  260. };
  261.  
  262. resource 'DITL' (200, "Severe Error", purgeable) {
  263.     {
  264.         {104, 264, 124, 324},
  265.         Button { enabled, "Proceed" },
  266.         {104, 168, 124, 228},
  267.         Button { enabled, "Quit" },
  268.         {16, 80, 87, 332},
  269.         StaticText { disabled, "^0\n\nResult Code = ^1" }
  270.     }
  271. };
  272.  
  273. resource 'DITL' (250, "No Printer", purgeable) {
  274.     {
  275.         {85, 262, 105, 327},
  276.         Button { enabled, "OK" },
  277.         {14, 84, 67, 327},
  278.         StaticText { disabled, "Printing operations are not possible "
  279.                      "until you have selected a Printer using the"
  280.                      " Chooser. " }
  281.     }
  282. };
  283.  
  284. resource 'DITL' (300, "OS Error", purgeable) {
  285.     {
  286.         {104, 264, 124, 324},
  287.         Button { enabled, "OK" },
  288.         {16, 80, 87, 332},
  289.         StaticText { disabled, "^0\n\nResult Code = ^1" }
  290.     }
  291. };
  292.  
  293. resource 'CNTL' (300, "Scroll Bar", preload) {
  294.     {0, 0, 0, 0},
  295.     0, invisible, 0, 0, scrollBarProc, 0,
  296.     ""
  297. };
  298.  
  299. resource 'STR#' (128, "Common") {
  300.     {
  301.         "quitting",
  302.         "closing",
  303.         "Undo ",
  304.         "Redo ",
  305.         "Untitled",
  306.         "Show Clipboard",
  307.         "Hide Clipboard"
  308.     }
  309. };
  310.  
  311. resource 'STR#' (129, "Memory Warnings") {
  312.     {
  313.         "Memory is running low. Please close "
  314.         "windows and save documents to avoid losing "
  315.         "data."
  316.     }
  317. };
  318.  
  319. resource 'STR#' (130, "Task Names") {
  320.     {
  321.     }
  322. };
  323.  
  324. resource 'STR ' (150, "SaveAs Prompt", purgeable) {
  325.     "Save File As:"
  326. };
  327.  
  328. resource 'STR ' (300, "OS Error", purgeable) {
  329.     "Mac OS Error Encountered"
  330. };
  331.  
  332. resource 'Estr' (-192, "resNotFound", purgeable) {
  333.     "Tried to get a nonexistent resource"
  334. };
  335.  
  336. resource 'SICN' (200, "Grow Box", preload) {
  337.     {
  338.         $"FF FF 80 01 80 01 9F C1 90 41 90 7D 90 45 90 45"
  339.         $"90 45 9F C5 84 05 84 05 84 05 87 FD 80 01 FF FF"
  340.     }
  341. };
  342.  
  343.